home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
TEX-DIST
/
!TARZ
/
SCANNAME00
< prev
next >
Wrap
Text File
|
1991-09-29
|
1KB
|
62 lines
BEGIN {
y = 1;
char x[ 128 ];
char z[ 128 ];
char n[ 128 ];
cmp=0;
}
/' /
{
#
# get around the '13'-character of linefeed from File
#
if (y==1)
{
x=$1;
y=0;
}
else
x=substr($1,2);
#
# Change all !- Characters in _-characters in last part of name
#
cmp=0;
i=split($2,s,".");
while (index(s[i],"!")!=0)
{
sub("!","_",s[i]);
cmp=1;
}
z=sprintf("%s%s",substr($2,1,length($2)-length(s[i])),s[i]);
#
# change last part of directoryname form "name" to "_name"
#
if (x=="Directory")
{
if (cmp=0)
z=$2;
if (index(z,".")!=0)
{
i=split(z,s,".");
n=s[i];
}
else
n=z;
if (substr(s[i],1,1)!="_")
{
if (length(n)<10)
z=sprintf("%s_%s",substr(z,1,length(z)-length(n)),n);
else
z=sprintf("%s_%s",substr(z,1,length(z)-length(n)),substr(n,1,length(n)-1));
}
cmp=1;
}
#
# put changed name to a rename-command
#
if (cmp== 1)
printf("rename %s %s\n",$2,z);
}
END {printf("*quit");}